(dired-compress-file): Test the return value

of dired-check-process properly.
Fix use of nonexistent var `name'.

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index f8503f2d07f9197311623853345592056c5c26d3..3d2f477962c93a7e8da92c78ee49866ea29215d1 100644 (file)
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -493,7 +493,7 @@ and use this command with a prefix argument (the value does not matter)."
          (t
           (if (not (dired-check-process (concat "Compressing " file)
                                         "compress" "-f" file))
-              (concat name ".Z"))))))
+              (concat file ".Z"))))))
 \f
 (defun dired-mark-confirm (op-symbol arg)
   ;; Request confirmation from the user that the operation described